home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 135 / 135.d81 / webb program (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  271b  |  11 lines
  1. 100 open8,8,8,"tokens,p,w"
  2. 110 print#8,chr$(1)chr$(8);
  3. 120 rm$=":"+chr$(143)+"  $":z$=chr$(0):m=2049:fort=128to255
  4. 130 tl=(t and 15)+48:iftl>57thentl=tl+7
  5. 140 th=int(t/16)+48:ifth>57thenth=th+7
  6. 150 m=m+13
  7. 160 ml=m and 255:mh=int(m/256)
  8. 170 print#8,chr$(ml)chr$(mh)chr$(t)z$+chr$(t)rm$+chr$(th)chr$(tl)z$;
  9. 180 next:print#8,z$z$;
  10. 190 close8:end
  11.